Global Balance, AcctNum, Words, LastCheckNumber, LimitCards1
Global ThisItem, ThisLine, accountlineNumber
set numberformat to 0
put the ClickLoc into ThisMouseLoc
set cursor to 4
-- This script written and copyrighted by: Christopher C. Hostetter
-- Mac Help Company, 1800 East Market St., Long Beach, CA 90805
-- (213) 428-7414
-- This script may be freely modified and used in other stacks,
-- but these five credit lines must accompany this script.
if the optionKey is down then
put "These are your bank accounts and their balances. To select" && "an account, simply click on the account. You can then enter" && "transactions against the account you have selected. The" && "little pointer arrow to the left tells you what account is" && "currently selected. The dollar sign to the right, adds up all" && "of your accounts and shows your net worth." into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
put the name of the target into WhatField
put the rect of whatField into FieldRect
put item 1 of FieldRect into X -- Left of Rect
put item 2 of FieldRect into Y -- Top of Rect
put item 3 of FieldRect into XX -- Right of Rect
put item 4 of FieldRect into YY -- Bottom of Rect
put (YY - Y) / the textheight of whatField into TotalZones
put (YY - Y) / TotalZones into ZoneDepth
put item 2 of ThisMouseLoc - Y into MouseDepth
put the trunc of ((MouseDepth / ZoneDepth) + 1) into whichZone
put the scroll of whatField / the textHeight of whatField into HiddenLines
set the rect of card button "Account Hilighter" to X+1,ButY+1,XX-17,ButYY-1
else
set the rect of card button "Account Hilighter" to X+1,ButY+1,XX-1,ButYY-1
end if
set the rect of card button "Account Pointer" to X-19,ButY+1,X-3,ButYY-1
show card button "Account Hilighter"
set lockscreen to true
put char 30 to 46 of ThisItem into AcctNum
put AcctNum into card field "Account Number"
put empty into card field "Next Check"
if ThisItem is not empty then
put the Number Of Words of ThisItem into Words
get word words-2 of ThisItem
put the value of it into LastCheckNumber
get last word of ThisItem
put the value of it into Balance
end if
put AcctNum into line 1 of card field "Statistics"
put the scroll of card field "Summary" into line 2 of card field "Statistics"
put "Only View: " & AcctNum into ThisName
set name of background button ID 53 to ThisName
set the hilite of background button ID 53 to True
put AcctNum into LimitCards1
if the visible of card field "Clear YTD" is true then
send "GetCleared" to background
end if
if the visible of card field "Select Checks" is true then
send "GetChecks" to background
end if
set lockscreen to False
Hide card button "Account Hilighter"
end mouseUp
-- part 5 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=3 top=5 right=22 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Total Accounts
-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=24 top=17 right=31 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Summary Title
-- part 29 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=310 top=109 right=265 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Sub Accounts
----- HyperTalk script -----
on mouseUp
Global ThisItem, ThisLine, ReturnFromSub, ThisField
set numberformat to 0
put the clickLoc into ThisMouseLoc
set cursor to 4
-- This script written and copyrighted by: Christopher C. Hostetter
-- Mac Help Company, 1800 East Market St., Long Beach, CA 90805
-- (213) 428-7414
-- This script may be freely modified and used in other stacks,
-- but these five credit lines must accompany this script.
if the optionKey is down then
put "These are your sub accounts. When you write a check, or" && "make a deposit or withdrawal, etc., you can indicate where that" && "money is really going. The importance of this feature is to" && "both analyze your spending and income, as well as to provide" && "a way to divide a bank account up into smaller accounts (for" && "accounting purposes.) (A shortcut to view a sub account card" && "is to hold the SHIFT key down while clicking on the name of" && "the sub account you wish to see and to click on the black arrow" && "to return again.)" into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
put the name of the target into WhatField
put the rect of whatField into FieldRect
put item 1 of FieldRect into X -- Left of Rect
put item 2 of FieldRect into Y -- Top of Rect
put item 3 of FieldRect into XX -- Right of Rect
put item 4 of FieldRect into YY -- Bottom of Rect
put (YY - Y) / the textheight of whatField into TotalZones
put (YY - Y) / TotalZones into ZoneDepth
put item 2 of ThisMouseLoc - Y into MouseDepth
put the trunc of ((MouseDepth / ZoneDepth) + 1) into whichZone
put the scroll of whatField / the textHeight of whatField into HiddenLines
set the rect of card button "Hilighter" to X+1,ButY+1,XX-17,ButYY-1
else
set the rect of card button "Hilighter" to X+1,ButY+1,XX-1,ButYY-1
end if
show card button "Hilighter"
set lockscreen to true
-- Use information from ThisItem in the sub fields
put ThisItem into SubName
if the ShiftKey is down then
put the ID of this card into ReturnFromSub
Hide card button "Hilighter"
go to card SubName
show background button "return"
set hilite of background button "Return" to True
set hilite of background button "Return" to False
set hilite of background button "Return" to True
exit mouseUp
end if
if card field "Amount" is empty then
Hide card button "Hilighter"
exit mouseUp
end if
repeat with i = 47 to 51
if card field ID i is empty then
put i into ThisField
put SubName into card field ID i
if i < 51 then
put i+5 into temp
if card field ID Temp is empty then
put temp into SubAmtID
get card field ID 56
put it into card field ID temp
put "0.00" into card field id 56
end if
end if
exit repeat
end if
end repeat
Hide card button "Hilighter"
set lockscreen to false
put ThisField+5 into Temp
if Temp > 46 then
click at the loc of card field ID Temp
click at the loc of card field ID Temp
end if
end mouseUp
-- part 37 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=98 top=149 right=166 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Account Number
----- HyperTalk script -----
on openfield
global thisField
put 37 into thisField
end openfield
-- part 42 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=98 top=165 right=182 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Next Check
----- HyperTalk script -----
on openfield
global thisField
put 42 into thisField
end openfield
on CloseField
Global Transaction, AcctNum, TransName, CardName, LastCheckNumber
Global NewCardName, ExitFlag
set numberformat to 0000000
if Transaction is "Write Check" then
add 0 to card field "Next Check"
put card field "Next Check" into CheckNumber
put LastCheckNumber+1 into temp
if CheckNumber > Temp then
go to card NewCardName of background "a"
if the result is empty then
if background field "Void" is not empty then
beep
answer "There is already a check by this number, but it has"& " been voided." with OK
go to card "a" of background "a"
end if
else
answer "Are you sure you want to skip ahead to check number #" & CheckNumber & " or use next number instead?" with "Cancel" or "SKIP" or Temp
if it is "Skip" then
answer "Would you like to continue the numbering sequence "& " of your checks from # " & checkNumber & " from now on?" with "Yes" or "No"
if it is "Yes" then put checkNumber-1 into LastCheckNumber
exit CloseField
end if
if it is Temp then put Temp into card field "Next Check"
if it is "Cancel" then
put empty into card field "Next Check"
exit CloseField
end if
end if
end if
put AcctNum && TransName & CheckNumber into NewCardName
if CheckNumber < Temp then
go to card NewCardName of background "a"
if the result is empty then
if background field "Void" is not empty then
beep
answer "There is already a check by this number, but it has"& " been voided." with OK
go to card "a" of background "a"
end if
end if
exit CloseField
end if
else
if card field "Next Check" is not empty then
answer "Why are you entering a Check Number? Do you want to change this transaction to a checking transaction" with "Yes" or "Ooops!-No"
if it is "Ooops!-No" then put empty into card field "Next Check"
if it is "Yes" then
put "Write Check" into Transaction
--send "TestTransaction" to background
end if
end if
end if
click at the loc of card field "Pay To"
end CloseField
-- part 43 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=98 top=181 right=198 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Pay To
----- HyperTalk script -----
on openfield
global thisField
put 43 into thisField
end openfield
-- part 44 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=182 top=197 right=214 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Amount
----- HyperTalk script -----
on openfield
global thisField
put 44 into thisField
set the scroll of card field "Summary" to line 2 of card field "Statistics"
end openfield
on CloseField
Global Amount, TransName, ThisField
put Amount into LastAmount
set numberformat to 0.00
get card field "Amount"
if it is not empty then
put the value of it into Amount
add 0 to Amount
put Amount into card field "Amount"
put 0 into Total
repeat with i = 52 to 55
if card field id i is not empty then add the value of card field id i to Total
end repeat
put Amount - Total into card field id 56
end if
if Amount is not LastAmount and TransName contains "EFT" then
answer "Is this: $" & Amount & " a Deposit or Withdrawal against the account?" with "Credit" or "Debit"
if it is "Credit" then
put "EFTc-" into TransName
else
put "EFTd-" into TransName
end if
end if
put 44 into ThisField
end CloseField
on mouseLeave
CloseField
end mouseLeave
-- part 45 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=98 top=213 right=245 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Memo
----- HyperTalk script -----
on openfield
global thisField
put 45 into thisField
end openfield
-- part 47 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=24 top=250 right=264 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub1
----- HyperTalk script -----
on openfield
global thisField
put 47 into thisField
end openfield
on closefield
Global ThisField
exit closeField -- Leave out if you wish to be able to enter partial
-- words rather than clicking on the sub account name
put False into Flag
get card field id ThisField
put it into ThisString
find it in field "Sub Accounts"
put 0 into Test
put 0 into Total
put 0 into LineNumber
repeat until Flag
add 1 to LineNumber
put length of line LineNumber of card field "Sub Accounts" into Len
add 1 to Len
put Len + Total into Total
put offset (it, card field "Sub Accounts") into ThisOffset
if ThisOffset < Total then
--ask "Is this the line? " with LineNumber
get line LineNumber of card field "Sub Accounts"
if it is ThisString then
exit CloseField
else
ask "Do you mean..." with it
if it is "" then
beep
click at the loc of card field id ThisField
exit closeField
else
put it into card field id ThisField
put True into Flag
end if
end if
end if
end repeat
end closefield
-- part 48 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=24 top=263 right=277 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub2
----- HyperTalk script -----
on openfield
global thisField
put 48 into thisField
end openfield
-- part 49 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=24 top=276 right=290 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub3
----- HyperTalk script -----
on openfield
global thisField
put 49 into thisField
end openfield
-- part 50 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=24 top=289 right=303 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub4
----- HyperTalk script -----
on openfield
global thisField
put 50 into thisField
end openfield
-- part 51 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=24 top=302 right=316 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub5
----- HyperTalk script -----
on openfield
Global ThisField
put 51 into thisField
end openfield
-- part 52 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=160 top=250 right=264 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Amt
----- HyperTalk script -----
on openField
Global ThisField
put 0 into ThisField
put 47 into i
if card field id i is empty then click at the loc of card field id i
end openField
on CloseField
Global Amount, ThisField
put 52 into ThisField
if card field id 47 is empty then click at the loc of card field id 47
set numberformat to 0.00
get card field "Amount"
if it is not empty then
if card field id 52 is not empty then add 0 to card field id 52
put the value of it into Amount
put 0 into Total
repeat with i = 52 to 55
if card field id i is not empty then add the value of card field id i to Total
end repeat
put Amount - Total into card field id 56
end if
end CloseField
-- part 53 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=160 top=263 right=277 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Credit
----- HyperTalk script -----
on openField
Global ThisField
put 0 into ThisField
put 48 into i
if card field id i is empty then click at the loc of card field id i
end openField
on CloseField
Global Amount, ThisField
put 53 into ThisField
set numberformat to 0.00
get card field "Amount" of card "a"
if it is not empty then
if card field id 53 is not empty then add 0 to card field id 53
put the value of it into Amount
put 0 into Total
repeat with i = 52 to 55
if card field id i is not empty then add the value of card field id i to Total
end repeat
put Amount - Total into card field id 56
end if
end CloseField
-- part 180 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=317 right=341 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 54 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=160 top=276 right=290 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Credit
----- HyperTalk script -----
on openField
Global ThisField
put 0 into ThisField
put 49 into i
if card field id i is empty then click at the loc of card field id i
end openField
on CloseField
Global Amount, ThisField
put 54 into ThisField
set numberformat to 0.00
get card field "Amount"
if it is not empty then
if card field id 54 is not empty then add 0 to card field id 54
put the value of it into Amount
put 0 into Total
repeat with i = 52 to 55
if card field id i is not empty then add the value of card field id i to Total
end repeat
put Amount - Total into card field id 56
end if
end CloseField
-- part 55 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=160 top=289 right=303 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Credit
----- HyperTalk script -----
on openField
Global ThisField
put 0 into ThisField
put 50 into i
if card field id i is empty then click at the loc of card field id i
end openField
on CloseField
Global Amount, ThisField
put 55 into ThisField
set numberformat to 0.00
get card field "Amount"
if it is not empty then
if card field id 55 is not empty then add 0 to card field id 55
put the value of it into Amount
put 0 into Total
repeat with i = 52 to 55
if card field id i is not empty then add the value of card field id i to Total
end repeat
put Amount - Total into card field id 56
end if
end CloseField
-- part 56 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=160 top=302 right=316 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Credit
----- HyperTalk script -----
on mouseLeave
Global Amount
set numberformat to 0.00
get card field "Amount"
if it is not empty then
if card field id 56 is not empty then add 0 to card field id 56
put the value of it into Amount
put 0 into Total
--repeat with i = 52 to 55
--if card field id i is not empty then add the value --of card field id i to Total
--end repeat
--put Amount - Total into card field id 56
end if
end mouseLeave
-- part 61 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=54 top=5 right=22 bottom=99
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Total Subs
-- part 73 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=24 top=109 right=142 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Transaction: Account Fee
----- HyperTalk script -----
on mouseUp
if the optionKey is down then
put "You choose what type of transaction you wish to enter." && " Check writing and withdrawals will subtract from your bank" && "balances, while deposits and interest will increase your" && "bank balance. If you choose ATM transaction, you will be asked" && "if the transaction is a credit or debit to your account." into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
set visible of card field "Blank Pop" to True
repeat with i = 198 to 204
show card button ID i
end repeat
end mouseUp
-- part 74 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=98 top=197 right=214 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Card Date2
----- HyperTalk script -----
on mouseUp
Global GivingDate, ShortGivingDate, TransName, Transaction, AcctNum
if GivingDate is empty then put the long date into GivingDate
Global Transaction, GivingDate, ShortGivingDate, NewCardName
Global DoNewCard, AcctNum, TransName, Words, AccountLineNumber
Global LastCheckNumber, balance, BeginCreditField, ExitFlag
Global LimitCards1, LimitCards2, PersonalAddress, ThisField
Global SubAmtID
if the optionKey is down then
put "If all the information is correctly entered, click this" && "button to record the transaction and credit or debit your" && "account." into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
set cursor to 4
if the visible of card field "Clear YTD" is true then
click at the loc of card button ID 129
exit mouseUp
end if
if SubAmtID > 50 then send closeField to card field ID SubAmtID
send "CloseField" to card field "Amount"
put card field "Amount" into Amount
if the name of card button ID 73 is "Transaction:" then
answer "You forgot to indicate what kind of transaction!" with "OK" or "Do Now"
if it is "Do Now" then click at the loc of card button ID 73
exit mouseUp
end if
if card field "Amount" is empty then
answer "You forgot to enter an amount!" with "OK"
exit mouseUp
end if
if card field "Account Number" is empty then
answer "You forgot to select an account!" with "OK"
exit mouseUp
end if
if Transaction is "Write Check" then
put AcctNum && TransName into Temp
put Temp & card field "Next Check" into NewCardName
else
put AcctNum && TransName into Temp
put Temp & ShortGivingDate into NewCardName
end if
put False into ExitFlag
send "checkForExisting" to background
if ExitFlag then exit mouseUp
put True into DoNewCard
if the value of card field ID 56 is Amount then
answer "Are you sure you want all this amount to go into " & "the MISCELLANEOUS Sub Account?" with "No" or "Yes"
if it is "No" then exit mouseUp
end if
if DoNewCard is True then
put "Updating..." into card field "Wait Pop"
show card field "Wait Pop"
set lockscreen to true
set cursor to 4
hide card field "Wait Pop"
put 47 into BeginCreditField
if TransName is "Dep-" or TransName is "Int-" or TransName is "EFTc-" then
send "CreditSubs" to background
else
send "UnCreditSubs" to background
end if
if ExitFlag is True then
answer "You have not put in any totals into this transaction!"
exit mouseUp
end if
put False into DoNewCard
put card field "Next Check" into aa1
put card field "Pay To" into aa2
put card field "Amount" into aa3
put card field "Memo" into aa4
put card field id 47 into aa5
put card field id 48 into aa6
put card field id 49 into aa7
put card field id 50 into aa8
put card field id 51 into aa9
put card field id 52 into aa10
put card field id 53 into aa11
put card field id 54 into aa12
put card field id 55 into aa13
put card field id 56 into aa14
go to last card of background "a"
doMenu "New Card"
put "•Activity Card" into background field "Activity Card Flag"
set the name of this card to NewCardName
put NewCardName into background field "Name of Card"
put GivingDate into Background field "Card Date"
put GivingDate into SecDate
convert SecDate to seconds
put SecDate into line 2 of background field "Card Date"
put ShortGivingDate into Background field "Card Date2"
put AcctNum into background field "Account Number"
put Transaction into background field "Transaction"
put aa1 into background field "Check Number"
put aa2 into background field "Pay To"
set numberformat to 0.00
if TransName is "Dep-" or TransName is "Int-" or TransName is "EFTc-" then
put aa3 into background field "Credit"
add the value of aa3 to balance
else
put aa3 into background field "Debit"
Subtract the value of aa3 from balance
if TransName contains "Check" then
put aa3 into background field "Debit2"
put GivingDate into ThisDate
convert ThisDate to DateItems
delete char 1 to 2 of ThisDate
put item 1 of ThisDate into background field "CheckDate2"
put item 2 of ThisDate into temp1
put item 3 of ThisDate into temp2
put temp1 & " / " & temp2 into background field "CheckDate1"
put PersonalAddress into background field "Check Address"
end if
end if
put balance into last word of line AccountLineNumber of card field "Summary" of card "a"
put aa4 into background field "Memo"
if Transaction is "Write Check" then
if aa1-1 = LastCheckNumber then -- the check # which user entered
set numberformat to 0000000
add 1 to LastCheckNumber
put LastCheckNumber into word words-2 of line AccountLineNumber of card field "Summary" of card "a"
set numberformat to 0.00
end if
end if
put aa5 into background field id 31
put aa6 into background field id 32
put aa7 into background field id 33
put aa8 into background field id 34
put aa9 into background field id 35
put aa10 into background field id 36
put aa11 into background field id 37
put aa12 into background field id 38
put aa13 into background field id 39
put aa14 into background field id 40
go to card "a" of background "a"
set lockscreen to true
send "ResetFields" to background
set lockscreen to false
if Transaction is "Write Check" then
set numberformat to 0000000
put LastCheckNumber+1 into Temp
put Temp into card field "Next Check" of card "a"
set numberformat to 0.00
send "CloseField" to card field "Next Check"
else
click at the loc of card field "Amount"
click at the loc of card field "Amount"
end if
end if
end mouseUp
-- part 140 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=7 top=98 right=316 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: Blank Pop2
-- part 161 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=122 top=319 right=341 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear
----- HyperTalk script -----
on mouseUp
Global LimitCards2
set hilite of the name of the target to true
if the optionKey is down then
put "Clicking this button will quickly erase the information" && "in the Pay To, Amount, Memo, and Sub Fields, so that you can" && "re-enter the information afresh." into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
if the visible of card field "Clear YTD" is true then
click at the loc of card button ID 129
exit mouseUp
end if
put empty into LimitCards2
set hilite of background button ID 54 to false
set lockscreen to true
send "ResetFields" to background
set lockscreen to false
set hilite of the name of the target to false
end mouseUp
-- part 141 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=120 top=147 right=160 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 1
----- HyperTalk script -----
on closeField
send "CalculateCleared" to background
end closeField
on mouseEnter
click at the loc of card field "Clear 1"
click at the loc of card field "Clear 1"
end mouseEnter
-- part 142 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=177 right=194 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 2
-- part 143 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=207 right=224 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 3
-- part 144 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=107 right=124 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 4
-- part 145 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=257 right=274 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Clear 5
-- part 146 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=23 top=281 right=303 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Cleared Activity
----- HyperTalk script -----
on mouseUp
Global AcctNum
put the value of card field "Clear 5" into OutOfBalance
if OutOfBalance is not 0 then
answer "Are you sure you want to delete cleared activity even though your account is out of balance by $ " & OutOfBalance & "?" with "Yes" or "NO"
if it is "No" then
exit mouseUp
end if
else
answer "Delete All Cleared Activity From This Account?" with "Yes" or "Cancel"
if it is "Cancel" then exit MouseUp
end if
put "Clearing..." into card field "Wait Pop"
show card field "Wait Pop"
set lockscreen to true
set cursor to 4
hide card field "Wait Pop"
put the number of lines of card field "Clear YTD" into NumLines
repeat with i = 1 to NumLines
get line i of card field "Clear YTD" of card "a"
if char 1 of it is not " " then
get line i of card field "Clear YTD2" of card "a"
Go to it
doMenu "Delete Card"
end if
end repeat
go to card "a" of background "a"
put 1 into LineNum
repeat forever
get line LineNum of card field "Clear YTD" of card "a"
if it is empty then exit repeat
if char 1 of it is not " " then
delete line LineNum of card field "Clear YTD" of card "a"
delete line LineNum of card field "Clear YTD2" of card "a"
else
add 1 to LineNum
end if
end repeat
send "CalculateCleared" to background
set lockscreen to false
end mouseUp
-- part 164 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=310 top=274 right=297 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reconcile Bank Statement
----- HyperTalk script -----
on mouseUp
Global AcctNum, LastButtonID2
set hilite of card button ID 164 to true
if the optionKey is down then
put "After a bank account has been selected, choose this button" && "if you desire to mark some transactions as being cleared. When" && "a transaction is marked as cleared, you can easily match up the" && "amounts of your transactions to a bank statement. Afterward," && "click the button again to close the bank statement window, or" && "click the 'delete cleared activity' to permanently erase those" && "transactions which you will no longer need to reference." into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
if the visible of card field "Clear YTD" is true then
put False into ShowFlag
else
put True into ShowFlag
end if
set lockscreen to true
set cursor to 4
put empty into card field "Clear YTD"
put empty into card field "Clear YTD2"
set the visible of card field "Blank Pop2" to True
set the visible of card field "Clear YTD" to ShowFlag
set the visible of card field "Clear 1" to ShowFlag
set the visible of card field "Clear 2" to ShowFlag
set the visible of card field "Clear 3" to ShowFlag
set the visible of card field "Clear 4" to ShowFlag
set the visible of card field "Clear 5" to ShowFlag
set the visible of card field "Clear 6" to ShowFlag
set the visible of card field "Clear 7" to ShowFlag
set the visible of card button "Delete Cleared Activity" to ShowFlag
set the visible of card field "Blank Pop2" to ShowFlag
set hilite of card button ID 164 to false
set lockscreen to false
if ShowFlag is True then
set lockscreen to true
send "GetCleared" to background
end if
end mouseUp
-- part 165 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=273 top=87 right=314 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 6
-- text size: 18
-- style flags: 1024
-- line height: 24
-- part name: Blank Pop
-- part 175 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=463 top=309 right=342 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 9761 / 9761
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
Global LimitCards2
--set the hilite of background button ID 54 to False
--Put empty into LimitCards2
go to card "Map"
end mouseUp
-- part 177 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=6 top=96 right=264 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Clear YTD2
-- part 181 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=19 top=2 right=34 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 198 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=127 right=149 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Deposit (+)
----- HyperTalk script -----
on mouseUp
Global Transaction, TransactionSelect
put "Account Deposit" into ButtonName
put ButtonName into Transaction
put True into TransactionSelect
click at the loc of card button "Cancel"
end mouseUp
-- part 199 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=148 right=170 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Withdrawal (-)
----- HyperTalk script -----
on mouseUp
Global Transaction, TransactionSelect
put "Account Withdrawal" into ButtonName
put ButtonName into Transaction
put True into TransactionSelect
click at the loc of card button "Cancel"
end mouseUp
-- part 200 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=169 right=191 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Interest (+)
----- HyperTalk script -----
on mouseUp
Global Transaction, TransactionSelect
put "Account Interest" into ButtonName
put ButtonName into Transaction
put True into TransactionSelect
click at the loc of card button "Cancel"
end mouseUp
-- part 201 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=190 right=212 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Fee (-)
----- HyperTalk script -----
on mouseUp
Global Transaction, TransactionSelect
put "Account Fee" into ButtonName
put ButtonName into Transaction
put True into TransactionSelect
click at the loc of card button "Cancel"
end mouseUp
-- part 202 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=226 right=248 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Write Check (-)
----- HyperTalk script -----
on mouseUp
Global Transaction, TransactionSelect
put "Write Check" into ButtonName
put ButtonName into Transaction
put True into TransactionSelect
click at the loc of card button "Cancel"
end mouseUp
-- part 203 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=247 right=269 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ATM / EFT / Electronic
----- HyperTalk script -----
on mouseUp
Global Transaction, TransactionSelect
put "ATM / EFT / Electronic" into ButtonName
put ButtonName into Transaction
put True into TransactionSelect
click at the loc of card button "Cancel"
end mouseUp
-- part 204 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=299 top=279 right=301 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CANCEL
----- HyperTalk script -----
on mouseUp
Global Transaction, TransactionSelect
set lockscreen to true
set cursor to 4
repeat with i = 198 to 204
hide card button ID i
set hilite of card Button ID i to false
end repeat
set visible of card field "Blank Pop" to False
set lockscreen to false
if TransactionSelect is not empty then send "TestTransaction" to background
put empty into TransactionSelect
end mouseUp
-- part 205 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=0 top=0 right=17 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Set-up
----- HyperTalk script -----
on mouseUp
global ThisField, BankAccountLine, AcctNum, AccountLineNumber
global ThisLine, ThisItem, AccountTotal
if the optionKey is down then
put "This allows you to create, delete or modify either a bank" && "account or a sub account. SEE MANUAL FOR MORE EXPLANATION ON" && "BANK ACCOUNTS & SUB ACCOUNTS." into String
set hilite of the name of the target to false
put the name of the target into ThisItem
HelpMsg1 String
exit mouseUp
end if
answer "Edit which type of account?" with "Sub-Account" or "Bank Account" or "CANCEL"
set hilite of card button ID 205 to false
if it is "CANCEL" then exit mouseUp
if it is "Bank Account" then
put char 1 to 29 of line AccountLineNumber of card field "Summary" into TitleOfAccount
put card field "Total Accounts" into AccountTotal
if AccountTotal is empty then put 0 into AccountTotal
answer "What do you want to do with a BANK ACCOUNT?" with "Create" or "Delete" or "Modify"
if it is "Create" then
ask "Title of account?"
if it is "" then exit mouseUp
put it into AccountTitle
ask "Account Number? (17 Characters Maximum)"
if it is "" then exit mouseUp
put it into AccountNumber
put char 1 to 17 of AccountNumber into AccountNumber
repeat with i = 1 to 17
if char i of AccountNumber is " " then
put "." into char i of AccountNumber
end if
if char i of AccountNumber is empty then
put AccountNumber & "." into AccountNumber
end if
end repeat
put 1 into i
put char 30 to 46 of line i of card field "Summary" into TempAcctNum
repeat until TempAcctNum is empty
if TempAcctNum is AccountNumber then
beep
ask "The account number " & AccountNumber & " already exists. You can't use the same account number " & "again. (You could add a '-1' or '-2', etc.)" with AccountNumber
if it is empty then exit mouseUp
put it into AccountNumber
put char 1 to 17 of AccountNumber into AccountNumber
repeat with i = 1 to 17
if char i of AccountNumber is " " then
put "." into char i of AccountNumber
end if
if char i of AccountNumber is empty then
put AccountNumber & "." into AccountNumber
end if
end repeat
put 0 into i
end if
add 1 to i
put char 30 to 46 of line i of card field "Summary" into TempAcctNum
end repeat
add 1 to AccountTotal
add 1 to card field "Total Accounts"
put " " into line AccountTotal of card field "Summary"
put AccountTitle into Char 1 of line AccountTotal of card field "Summary"
put AccountNumber into Char 30 of line AccountTotal of card field "Summary"
put "0000000" into Char 48 of line AccountTotal of card field "Summary"
put "$ 0.00" into Char 59 of line AccountTotal of card field "Summary"
put 0 into j
put False into Flag
set lockscreen to true
set cursor to 4
repeat until Flag
add 1 to j
if j = AccountTotal then exit repeat
put line j of card field "Summary" into temp1
put line j+1 of card field "Summary" into temp2
if char 1 to 29 of temp1 > char 1 to 29 of Temp2 then
put temp1 into line j+1 of card field "Summary"
put temp2 into line j of card field "Summary"
put 0 into j
end if
end repeat
set lockscreen to false
show card button "Account Hilighter"
click at the loc of card button "Account Hilighter"
else
if BankAccountLine > AccountTotal then
answer "Select the proper account first!" with "OK"
exit mouseUp
end if
if it is "Modify" then
answer "Modify account number " & AcctNum & " - " & TitleOfAccount with "Yes" or "NO"
if it is "NO" then exit mouseUp
put 1 into i
put char 30 to 46 of line i of card field "Summary" into TempAcctNum
repeat until TempAcctNum is empty
if TempAcctNum is AcctNum then
put char 1 to 29 of line i of card field "Summary" into AccountTitle
ask "Modify the Title of this account?" with AccountTitle
if it is not empty then put it into AccountTitle
put char 30 to 46 of line i of card field "Summary" into AccountNumber
put char 48 to 54 of line i of card field "Summary" into CkNumber
ask "Modify the Last Check Number of this account?" with CkNumber
if it is not empty then put it into CkNumber
set numberformat to 0000000
add 0 to CkNumber
put CkNumber & " " into CkNumber
put last word of line i of card field "Summary" into AcctAmt
ask "Modify the current balance of this account?" with AcctAmt
if it is not empty then put it into AcctAmt
set numberformat to 0.00
add 0 to AcctAmt
put "$ " & AcctAmt into AcctAmt
answer "Record these modifications to account " & AcctNum & " - " & TitleOfAccount with "Yes" or "No"
if it is "Yes" then
delete line i of card field "Summary"
put return before line i of card field "summary"
put " " into line i of card field "Summary"
put AccountTitle into Char 1 of line i of card field "Summary"
put AccountNumber into Char 30 of line i of card field "Summary"
put CkNumber into Char 48 of line i of card field "Summary"
put AcctAmt into Char 59 of line i of card field "Summary"
put 0 into j
put False into Flag
set lockscreen to true
set cursor to 4
repeat until Flag
add 1 to j
if j = AccountTotal then exit repeat
put line j of card field "Summary" into temp1
put line j+1 of card field "Summary" into temp2
if char 1 to 29 of temp1 > char 1 to 29 of Temp2 then
put temp1 into line j+1 of card field "Summary"
put temp2 into line j of card field "Summary"
put 0 into j
end if
end repeat
set lockscreen to false
show card button "Account Hilighter"
click at the loc of card button "Account Hilighter"
end if
exit repeat
end if
add 1 to i
put char 30 to 46 of line i of card field "Summary" into TempAcctNum
end repeat
end if
if it is "Delete" then
if AcctNum is empty then
beep
wait 20
beep
answer "No account number was selected. First Select " & "the proper account?" with "OK"
exit mouseUp
else
beep
answer "Delete account number " & AcctNum & " - " & TitleOfAccount with "Yes" or "NO"
end if
if it is "NO" then exit mouseUp
put 1 into i
put char 30 to 46 of line i of card field "Summary" into TempAcctNum
repeat until TempAcctNum is empty
if TempAcctNum is AcctNum then delete line i of card field "Summary"
add 1 to i
put char 30 to 46 of line i of card field "Summary" into TempAcctNum
end repeat
subtract 1 from card field "Total Accounts"
put "•Activity Card" && AcctNum into ThisString
find word ThisString
if the result is "Not Found" then
go to card "a" of background "a"
answer "Bank account " & AcctNum & " was deleted!"
set the scroll of card field "Summary" to 0
click at the loc of card button "Account Hilighter"
exit mouseUp
end if
set lockscreen to true
repeat forever
doMenu Delete Card
go to next card of background "a"
put "•Activity Card" && AcctNum into ThisString
find word ThisString
if the result is "Not Found" then exit repeat
end repeat
go to card "a" of background "a"
set lockscreen to false
answer "Bank account " & AcctNum & " was deleted!"
show card button "Account Hilighter"
click at the loc of card button "Account Hilighter"
exit mouseUp
end if
end if
else -- IF IT IS A SUB ACCOUNT
put card field "Total Subs" into AccountTotal
if AccountTotal is empty then put 0 into AccountTotal
answer "What do you want to do with SUB-ACCOUNT '" & ThisItem & "'" with "Create" or "Delete" or "Modify"
put it into Action
if Action is "Modify" then
if ThisLine > AccountTotal then
answer "First select the sub-account you wish to delete!" with "OK"
exit mouseUp
end if
if ThisItem is "Miscellaneous" then
answer "You cannot Modify the name of the miscellaneous sub-account" with "Sorry"
exit mouseUp
end if
answer "Modify the name of sub-account: " & ThisItem with "Yes" or "NO"
if it is "No" then exit mouseUp
put ThisItem into OriginalSubName
ask "Enter the new name of sub account: " & ThisItem with ThisItem
if it is not empty then put it into ThisItem
if OriginalSubName is not ThisItem then
go to card OriginalSubName of background "Sub Accounts"
put ThisItem into Background field "Sub Title"
set the name of this card to ThisItem
go to card "a" of background "a"
put ThisItem into line ThisLine of card field "Sub Accounts"
"SortSubNames"
end if
end if
if Action is "Create" then
ask "Name of Sub-Account?"
if it is "" then exit mouseUp
put it into ThisItem
go to card ThisItem of background "Sub Accounts"
if the result is not empty then
add 1 to card field "Total Subs"
add 1 to AccountTotal
put ThisItem into line AccountTotal of card field "Sub accounts"
go to last card of background "Sub Accounts"
doMenu "New Card"
put ThisItem into background field "Sub Title"
set the name of this card to ThisItem
go to card "a" of background "a"
"SortSubNames"
end if
end if
if Action is "Delete" then
if ThisLine > AccountTotal then
answer "First select the sub-account you wish to delete!" with "OK"
exit mouseUp
end if
if ThisItem is "Miscellaneous" then
answer "You cannot delete the miscellaneous sub-account" with "Sorry"
exit mouseUp
end if
answer "Delete sub-account named: " & ThisItem with "Yes" or "NO"
if it is "NO" then exit mouseUp
set lockscreen to true
put 1 into i
put line i of card field "Sub Accounts" into TempName
repeat until TempName is empty
if ThisItem is TempName then
delete line i of card field "Sub Accounts"
set the scroll of card field "Sub Accounts" to 0
end if
add 1 to i
put line i of card field "Sub Accounts" into TempName
end repeat
subtract 1 from card field "Total Subs"
go to card ThisItem of background "Sub Accounts"
doMenu "Delete Card"
go to card "a" of background "a"
put Miscellaneous into ThisItem
set lockscreen to true
exit mouseUp
end if
set lockscreen to true
push card
go to card "Main" of background "Income"
put empty into background field "Sub Accounts"
put card field "Sub Accounts" of card "a" of background "a" into background field "Sub Accounts"
pop card
set lockscreen to false
end if
end mouseUp
on "SortSubNames"
Global AccountTotal
put 0 into j
set lockscreen to true
set cursor to 4
put False into Flag
repeat until Flag
add 1 to j
if j = AccountTotal then exit repeat
put line j of card field "Sub Accounts" into temp1
put line j+1 of card field "Sub Accounts" into temp2
if temp1 > Temp2 then
put temp1 into line j+1 of card field "Sub Accounts"
put temp2 into line j of card field "Sub Accounts"
put 0 into j
end if
end repeat
set lockscreen to false
end "SortSubNames"
-- part 206 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=3 top=99 right=168 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Statistics
-- part 207 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=24 top=97 right=109 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 211 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=311 top=152 right=164 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hilighter
----- HyperTalk script -----
on mouseUp
hide the name of the target
end mouseUp
-- part 212 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=25 top=32 right=44 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Hilighter
----- HyperTalk script -----
on mouseUp
Hide the name of the target
click at the loc of the name of the target
end mouseUp
-- part 216 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=209 top=98 right=268 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Clear YTD
----- HyperTalk script -----
on mouseUp
Global ThisItem, ThisLine, AcctNum
set numberformat to 0
put the ClickLoc into LastClickLoc
set cursor to 4
-- This script written and copyrighted by: Christopher C. Hostetter
-- Mac Help Company, 1800 East Market St., Long Beach, CA 90805
-- (213) 428-7414
-- This script may be freely modified and used in other stacks,
-- but these five credit lines must accompany this script.
put the name of the target into WhatField
put the rect of whatField into FieldRect
put item 1 of FieldRect into X -- Left of Rect
put item 2 of FieldRect into Y -- Top of Rect
put item 3 of FieldRect into XX -- Right of Rect
put item 4 of FieldRect into YY -- Bottom of Rect
put (YY - Y) / the textheight of whatField into TotalZones
put (YY - Y) / TotalZones into ZoneDepth
put item 2 of LastClickLoc - Y into MouseDepth
put the trunc of ((MouseDepth / ZoneDepth) + 1) into whichZone
put the scroll of whatField / the textHeight of whatField into HiddenLines
put the trunc of (whichZone + HiddenLines) into ThisLine
set the rect of card button "Clear YTD Hilighter" to X+1,ButY+1,XX-17,ButYY-1
else
set the rect of card button "Clear YTD Hilighter" to X+1,ButY+1,XX-1,ButYY-1
end if
show card button "Clear YTD Hilighter"
set lockscreen to true
set numberformat to 0.00
if ThisItem is not empty then
put last word of ThisItem into Amount
if char 1 of ThisItem is " " then
put "‚àö" into ClearChar
put ClearChar into char 1 of line ThisLine of card field "Clear YTD"
if amount > 0 then
add amount to card field "Clear 3" -- cleared(+)
subtract amount from card field "Clear 2" -- outstanding(+)
else
subtract amount from card field "Clear 7" -- cleared(-)
add amount to card field "Clear 6" -- outstanding(-)
end if
--add Amount to card field "Clear 2"
--add Amount to card field "Clear 3"
put word 1 of ThisItem into Trans
else
put " " into ClearChar
put ClearChar into char 1 of line ThisLine of card field "Clear YTD"
if amount > 0 then
subtract amount from card field "Clear 3" -- cleared(+)
add amount to card field "Clear 2" -- outstanding(+)
else
add amount to card field "Clear 7" -- cleared(-)
subtract amount from card field "Clear 6" -- outstanding(-)
end if
--subtract Amount from card field "Clear 2"
--subtract Amount from card field "Clear 3"
put word 2 of ThisItem into Trans
end if
push card
get Line ThisLine of card field "Clear YTD2"
go to it
put ClearChar into background field "Cleared"
pop card
send "CalculateCleared" to background
end if
Hide card button "Clear YTD Hilighter"
end mouseUp
-- part 219 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=217 right=234 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 7
-- part 220 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=187 right=204 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 6
-- part 223 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=32 right=44 bottom=21
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Pointer
----- HyperTalk script -----
on mouseUp
put "This points to the account which is currently active." && " Any transactions you make will be made toward this account." into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
end mouseUp
-- part 224 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=497 top=81 right=103 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calc Total
----- HyperTalk script -----
on mouseUp
set hilite of the name of the target to true
set numberformat to 0.00
put the number of lines of card field "Summary" into TotalLines
set cursor to 4
if the optionKey is down then
put "This shows your total net worth by adding the balances of" && "all your accounts together." into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
put 0 into TotalBalance
repeat with i = 1 to TotalLines
add the value of last word of line i of card field "Summary" to TotalBalance
end repeat
put "$ " & TotalBalance into line 3 of card field "Total Of Balances"
show card field "Total Of Balances"
set hilite of the name of the target to false
end mouseUp
-- part 225 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=161 top=116 right=211 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Total Of Balances
----- HyperTalk script -----
on mouseUp
hide card field "Total Of Balances"
end mouseUp
-- part 226 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=270 top=249 right=316 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 227 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=287 top=305 right=341 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
global LastField, LastLine
if LastLine is 0 then put 1 into LastLine
if the optionKey is down then
put "You may desire to sort your transaction cards so that if" && "you print or just view them a card at a time, they will be in" && "some order. Originally, they are in the order entered. Sorting" && "the cards will put them in the order of the account, or by date" && "(to put them in order of the date of the transaction.)" into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
answer "Sort your Daily Transactions according to:" with "Account" or "Date" or "CANCEL"
push this card
if it is "Account" then
sort by field "Account Number" & field "Transaction"
end if
if it is "Date" then sort by background field "Card Date"
if it is "Other" then
put LastField into AskField
answer "Sort all cards of this stack according to:" with AskField or "CANCEL"
if it is AskField then
sort by background field AskField
end if
end if
pop card
end mouseUp
-- part 228 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=327 top=305 right=341 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter Advanced
----- HyperTalk script -----
on mouseUp
if the optionKey is down then
put "The printer button on this card allows you to print" && "a 'report' using HyperCard's print feature which lets you choose" && "what background fields you wish to print, and whether you want" && "to print in columns or rows. Or you can print 'Actual Cards'," && "which will print a screen shot of the cards you select." && " This is also where you select your checks for printing." into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
answer "How would you like to print?" with "Print Report" or "Actual Cards" or "Print Checks"
if it is "CANCEL" then pass mouseUp
if it is "Print Checks" then
answer "SET UP or SELECT checks for printing?" with "Cancel" or "Set Up" or "Select"
if it is "Cancel" then exit mouseUp
if it is "SELECT" then
push card
push card
push card
put empty into card field "select checks"
show card field "select checks"
put empty into card field "Clear YTD2"
send "getChecks" to background
show card button ID 233
show card button ID 234
end if
if it is "Set Up" then
push card
push card
push card
go to first card of stack "Print Checks"
end if
end if
if it is "Print Report" then
doMenu "Page Setup..."
set Lockscreen to True
doMenu "Print Report..."
end if
if it is "Actual Cards" then
answer "Would you like to print ALL of your transaction cards?" with "Cancel" or "ALL"
if it = "Cancel" then pass mouseUp
if it = "All" then
push card
set lockscreen to true
go to last card of this background
put the number of this card into LastCard
go to first card of this background
put the number of this card into FirstCard
put LastCard-FirstCard+1 into HowMany
open printing with dialog
Print HowMany Cards
close printing
pop card
end if
end if
close printing
end mouseUp
-- part 229 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=50 top=45 right=310 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Help Message Field
----- HyperTalk script -----
on mouseUp
set cursor to 4
put the name of the target into thisField
do "put empty into" && thisField
hide thisField
end mouseUp
-- part 230 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=23 top=109 right=315 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Select Checks
----- HyperTalk script -----
on mouseUp
Global ThisItem, ThisLine
set numberformat to 0
put the ClickLoc into LastClickLoc
set cursor to 4
-- This script written and copyrighted by: Christopher C. Hostetter
-- Mac Help Company, 1800 East Market St., Long Beach, CA 90805
-- (213) 428-7414
-- This script may be freely modified and used in other stacks,
-- but these five credit lines must accompany this script.
put the name of the target into WhatField
put the rect of whatField into FieldRect
put item 1 of FieldRect into X -- Left of Rect
put item 2 of FieldRect into Y -- Top of Rect
put item 3 of FieldRect into XX -- Right of Rect
put item 4 of FieldRect into YY -- Bottom of Rect
put (YY - Y) / the textheight of whatField into TotalZones
put (YY - Y) / TotalZones into ZoneDepth
put item 2 of LastClickLoc - Y into MouseDepth
put the trunc of ((MouseDepth / ZoneDepth) + 1) into whichZone
put the scroll of whatField / the textHeight of whatField into HiddenLines
put the trunc of (whichZone + HiddenLines) into ThisLine
set the rect of card button "Clear YTD Hilighter" to X+1,ButY+1,XX-17,ButYY-1
else
set the rect of card button "Clear YTD Hilighter" to X+1,ButY+1,XX-1,ButYY-1
end if
show card button "Clear YTD Hilighter"
set lockscreen to true
if ThisItem is not empty then
if char 1 of ThisItem is " " then
put "•" into ClearChar
put "* printed *" into ThisMark
put ClearChar into char 1 of line ThisLine of card field "Select Checks"
else
put " " into ClearChar
put empty into ThisMark
put ClearChar into char 1 of line ThisLine of card field "Select Checks"
end if
push card
get Line ThisLine of card field "Clear YTD2"
go to it
put ThisMark into background field "printed"
pop card
end if
Hide card button "Clear YTD Hilighter"
end mouseUp
-- part 231 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=41 top=189 right=264 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 48
-- style flags: 6912
-- line height: 64
-- part name: Wait Pop
-- part 232 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=210 top=155 right=167 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear YTD Hilighter
-- part 235 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=260 top=320 right=341 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Not Set
----- HyperTalk script -----
on mouseUp
put the name of the target into ThisName
put ThisName into ButtonName
delete word 1 to 2 of ThisName
delete first char of ThisName
delete last char of ThisName
if the optionKey is down or ThisName is "Not Set" then
answer "Do you need directions first or attach desk accessory?" with "Accessory" or "Directions"
if it is "Accessory" then
ask "Enter the exact name of the new desk accessory?" with ThisName
if it is empty then put "Not Set" into it
set the name of ButtonName to it
put it into ThisName
end if
if it is "Directions" then
put "You may use this button to activate a desk accessory such" && "as a calculator for instance. Before this message appears," && "choose 'Accessory' to attach a desk accessory and then type in the" && "exact name of the desk accessory (as it appears in the apple" && "menu). The desk accessory will be called up when you click the" && "button." into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
end if
doMenu ThisName
end mouseUp
-- part 236 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=233 top=320 right=341 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Not Set
----- HyperTalk script -----
on mouseUp
put the name of the target into ThisName
put ThisName into ButtonName
delete word 1 to 2 of ThisName
delete first char of ThisName
delete last char of ThisName
if the optionKey is down or ThisName is "Not Set" then
answer "Do you need directions first or attach desk accessory?" with "Accessory" or "Directions"
if it is "Accessory" then
ask "Enter the exact name of the new desk accessory?" with ThisName
if it is empty then put "Not Set" into it
set the name of ButtonName to it
put it into ThisName
end if
if it is "Directions" then
put "You may use this button to activate a desk accessory such" && "as a calculator for instance. Before this message appears," && "choose 'Accessory' to attach a desk accessory and then type in the" && "exact name of the desk accessory (as it appears in the apple" && "menu). The desk accessory will be called up when you click the" && "button." into String
put the name of the target into ThisItem
HelpMsg1 String, ThisItem
exit mouseUp
end if
end if
doMenu ThisName
end mouseUp
-- part 233 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=17 top=318 right=340 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PRINT MARKED CHECKS
----- HyperTalk script -----
on mouseUp
push card
set lockscreen to true
set cursor to 4
hide card field "Select Checks"
hide card button ID 233
Hide card button ID 234
if card field "Select Checks" contains "•" then
set lockscreen to false
go to first card of stack "Print Checks"
send "DoChecks" to background
end if
end mouseUp
-- part 234 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=244 top=318 right=340 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mark/UnMark ALL
----- HyperTalk script -----
on mouseUp
set lockscreen to true
set cursor to 4
get char 1 of line 1 of card field "Select Checks"
put the number of lines of card field "Select Checks" into NumLines
repeat with i = 1 to NumLines
put line i of card field "Select Checks" into ThisItem
if char 1 of ThisItem is " " then
put "•" into ClearChar
put "* printed *" into ThisMark
put ClearChar into char 1 of line i of card field "Select Checks"
else
put " " into ClearChar
put empty into ThisMark
put ClearChar into char 1 of line i of card field "Select Checks"
end if
push card
get Line i of card field "Clear YTD2"
go to it
put ThisMark into background field "printed"
pop card
end repeat
end mouseUp
-- part contents for card part 6
----- text -----
Account Title Account Last Ck. Balance
-- part contents for card part 5
----- text -----
1
-- part contents for card part 61
----- text -----
22
-- part contents for card part 29
----- text -----
.Income - Clients
.Income - Investments
Baby Items
Bank Charges
Business
Computer Supplies
Crafts
Entertainment
Gifts For Friends
Groceries
Home - Furnishings
Home - Mortgage
Home - Repair Items
Home - Telephone
Home - Utilities
Home - Yard
Insurance
Miscellaneous
Office Supplies - Home
Student Loan - College
Tithe/Offering
Travel Expenses
-- part contents for card part 74
----- text -----
2/27/88
-- part contents for card part 51
----- text -----
Miscellaneous
-- part contents for background part 28
----- text -----
Sunday, December 12, 1999
3027801600
-- part contents for background part 29
----- text -----
12/12/99
-- part contents for background part 27
----- text -----
V O I D
-- part contents for card part 140
----- text -----
Bank Balance......
Statement
Balance..........
Outstanding (+)..
Outstanding (-)..
Cleared (+)......
Cleared (-)......
Out of
Balance by.......
-- part contents for card part 165
----- text -----
Select Transaction
-- part contents for card part 141
----- text -----
45.00
-- part contents for background part 57
----- text -----
-- part contents for background part 40
----- text -----
0.00
-- part contents for background part 64
----- text -----
40000.00
-- part contents for background part 23
----- text -----
40000.00
-- part contents for background part 21
----- text -----
war
-- part contents for card part 206
----- text -----
243-2-28831......
0
Account Fee
Fee-
-- part contents for card part 142
----- text -----
723.00
-- part contents for card part 143
----- text -----
0
-- part contents for card part 144
----- text -----
31.19
-- part contents for card part 145
----- text -----
458.10
-- part contents for card part 219
----- text -----
18.97
-- part contents for card part 220
----- text -----
1194.91
-- part contents for card part 225
----- text -----
Your Total Assets Equal
$ 434.21
-- part contents for background part 85
----- text -----
Explanation Of bkgnd button "SuperFind: Chris Hostetter"
This advanced search button allows you to enter information you wish to find. It will take you to the card which has the words (or the parts of the words) you enter (note: the words don't have to be in the same order). You can then hit the carriage return to repeat the search over and over. If you hold the option key down while clicking OK, you can be more specific about finding information in 1. the last background field you clicked in (not always supported), and 2. whether you wish to find whole words, partial words, or the characters that you entered.
-- part contents for card part 231
----- text -----
Looking...
-- part contents for card part 230
----- text -----
• Check-0005282 -18.97 Southern Ca Edison
Check-0005283 -135.00 Mercury Insurance Group
• Check-0005284 -710.00 World Savings
• Check-0005285 -34.23 Giant
• Check-0005286 -228.78 Fedco
• Check-0005287 -46.90 Giant
-- part contents for card part 37
----- text -----
243-2-28831......
-- part contents for card part 4
----- text -----
First Bank - Checking 243-2-28831...... 0005287 $ 31.19
 (January 1993).iso/Files/Hyper/Me-Mz/MH Checking & Savings v2.4d.cpt/Checking & Savings Demo2.4/card_5226_render.png){kind=link}
 (January 1993).iso/Files/Hyper/Me-Mz/MH Checking & Savings v2.4d.cpt/Checking & Savings Demo2.4/card_6137_render.png){kind=link}